home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb26561.lsp < prev    next >
Text File  |  1998-03-15  |  1KB  |  50 lines
  1. ;=============265.61 GUMMIEINSATZ 80
  2.  
  3. (EAITDBL "0026561")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:26561V1 (/ P1)
  8.    (EAITDBL "0026561")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 1)
  13.    (EAITbpt nil nil nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (setvar "OSMODE" 0)
  17.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  18.    (command EAITege (strcat EAITpfn "26561v1") P1 "" "" EAITofkei pause)
  19.    
  20.    (command EAITege (strcat EAITpfn "EAITinfo")  (polar P1 (+ (EAITbw)(EAITgib 207)) 36.5) "" "" ""
  21.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  22.    )
  23.  
  24.    (EAITvarz2)
  25.    (princ)
  26. )
  27.  
  28. (defun C:26561V2 (/ P1)
  29.    (EAITDBL "0026561")
  30.    (princ (strcat "\n\n" EAITbez1))
  31.    (EAITvari)
  32.    (EAITvars)
  33.    (setvar "ORTHOMODE" 1)
  34.    (EAITbpt EAITofmit 2 nil)
  35.    (setq P1 (getpoint))
  36.    (if (= P1 nil)(setq P1 (EAITrpt)))
  37.    (setvar "OSMODE" 0)
  38.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  39.    (command EAITege (strcat EAITpfn "26561v2") P1 "" "" EAITofkei pause)
  40.  
  41.    (command EAITege (strcat EAITpfn "EAITinfo")  (polar P1 (+ (EAITbw)(EAITgib 183)) 32) "" "" ""
  42.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  43.    )
  44.  
  45.    (EAITvarz2)
  46.    (princ)
  47. )
  48.  
  49. (princ)
  50.